home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / TOOLS / PLUS32 / PLUS32.DEI < prev    next >
Encoding:
Text File  |  1995-10-05  |  5.5 KB  |  145 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     plus32.dei - V3.0.10.3.1 installation script for Sql*Plus for Windows 3.2
  5.  
  6.   DESCRIPTION
  7.     This script deinstalls Sql*Plus for Windows 3.2
  8.  
  9.   OWNER
  10.     Edan Kabatchnik
  11.  
  12.   MODIFIED    DD-MMM-YY  Reason
  13.     Aedsinge  06/06/95    Converted to v3.2.2 for Nt/95
  14.     Aedsinge  27-APR-95  Modified for Shared Oracle, Windows Sql*Plus 3.1.3.7.2
  15.     LMurphy   08-SEP-94  Modified for Windows SQL*Plus 3.1.3.5.x
  16.     LMurphy   23-MAY-94  Modified for Windows SQL*Plus 3.1.2.2.6
  17.     shall     04-FEB-93  Created from Browser 10 deinstall script.
  18. *****************************************************************************/
  19. {
  20.   
  21.   { doit = execute("%installer_home%\win95.dei"); }
  22.   [
  23.     'UNBOUND_VARIABLE: signal('failure,instantiate(nls("instver_too_early2","The version of the Installer currently running is %%installer_version%%. The product(s) you have chosen to deinstall were installed with a later version of the Installer. Please use a later version of the Installer to deinstall these product(s).")));
  24.   ]
  25.  
  26.   if (doit)
  27.   { 
  28.       plus32_deinst = instantiate(nls("plus32_deinst", "%%registry_label%% (PLUS32.EXE) is currently running on this machine. Please close this application before deinstalling %%registry_label%%.
  29.  
  30. Choose OK after you have closed all Oracle applications and want to resume the deinstallation of %%registry_label%%.
  31.  
  32. Choose CANCEL to terminate the deinstallation of %%registry_label%%.
  33.       "));
  34.       plus32_deinst_term = instantiate(nls("plus32_inst_term", "%%registry_label%% deinstallation terminated."));
  35.       plus32_deinst_content = instantiate(nls("plus32_deinst_content", "%%registry_label%% Running"));
  36.       plus32_deinst_help = instantiate(nls("plus32_deinst_help", "The Oracle Installer has detected that %%registry_label%% (PLUS32.EXE) is currently running on this machine.  Please close this application before deinstalling %%registry_label%%.
  37.  
  38. Choose OK after you have closed all Oracle applications and want to resume the deinstallation of %%registry_label%%.
  39.  
  40. Choose CANCEL to terminate the deinstallation of %%registry_label%%.
  41.       "));
  42.  
  43.  
  44.       done = FALSE;
  45.       while(not(done))
  46.       { move_file("%ORACLE_HOME%\bin\plus32.exe", "%ORACLE_HOME%\bin\plus32.exe"); done = TRUE;}
  47.       [ 'PERMISSION_DENIED, 'INVALID_FILE_NAME, 'OS_ERROR, 'WRITE_ERROR:
  48.        {
  49.          information_dialog(instantiate(plus32_deinst), plus32_deinst_content, instantiate(plus32_deinst_help));
  50.          signal('FAILURE, instantiate(plus32_deinst_term));
  51.        }
  52.         'FILE_NOT_FOUND:
  53.          done = TRUE;
  54.       ]                       
  55.       {
  56.       plus32 = v7_translate("PLUS32");
  57.     
  58.       }
  59.          [ 'OS_ERROR, 'INVALID_FILE_NAME, 'FILE_NOT_FOUND,
  60.         'PERMISSION_DENIED, 'UNBOUND_ENVIRONMENT_VARIABLE:
  61.        {
  62.  
  63.          variable = "PLUS32";
  64.          doit = FALSE;
  65.          information_dialog(deinstall_prompt02,
  66.                      deinstall_content02
  67.                 deinstall_help02);
  68.        }
  69.      ]
  70.  
  71.       {
  72.     oracle_group_name = v7_translate("ORACLE_GROUP_NAME");
  73.       }
  74.     [
  75.       'UNBOUND_ENVIRONMENT_VARIABLE, 'OS_ERROR:
  76.       {
  77.         variable = "ORACLE_GROUP_NAME";
  78.         information_dialog(instantiate(deinstall_prompt02),
  79.                    instantiate(deinstall_content02),
  80.                    instantiate(deinstall_help02));
  81.         doit = FALSE;
  82.       }
  83.     ]
  84.  
  85.   }/*doit*/
  86.  
  87.   if (doit)
  88.   {
  89.  
  90.  
  91.     if (registered("w95rsf72"))
  92.     {
  93.  
  94.     dependent = registration("w95rsf72");
  95.     unreference(dependent, current_registry);
  96.     deinstall(dependent);
  97.     }
  98.       
  99.       
  100.  
  101.   ui_product(registry_label);
  102.   permit_retry_operations = TRUE;
  103.  
  104.   ui_action(instantiate(nls("unregistering_product","Unregistering %%registry_label%%...")));
  105.   unregister(current_registry);  
  106.  
  107.   ui_action(instantiate(nls("deinst_exec","Removing %%registry_label%% Executables...")));
  108.           remove(exe);
  109.       /* PLUS32.INI is created when PLUS32.EXE is executed */
  110.       /* *.GID are created when *.HLP are executed */
  111.       /* They are removed below */
  112.       {
  113.       remove_file("%ORACLE_HOME%\PLUS32\PLUS32.INI");
  114.       remove_file("%ORACLE_HOME%\PLUS32\PLUS.GID");
  115.       remove_file("%ORACLE_HOME%\PLUS32\PLSHELP.GID");
  116.       remove_file("%ORACLE_HOME%\PLUS32\SQLHELP.GID");
  117.       remove_file("%ORACLE_HOME%\PLUS32\XLUGW.GID");
  118.       }
  119.       [ 'INVALID_FILE_NAME, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR:
  120.         continue();
  121.       ]
  122.  
  123.   ui_action(instantiate(nls("deinst_sql","Removing %%registry_label%% SQL Scripts...")));
  124.           remove(sql);
  125.   ui_action(instantiate(nls("deinst_help","Removing %%registry_label%% Help Files...")));
  126.        remove(prefs);
  127.     remove(help);
  128.   ui_action(instantiate(nls("deinst_msbs","Removing %%registry_label%% Message Files...")));
  129.           remove(msg);
  130.   
  131.   ui_action(instantiate(nls("deinst_script","Removing %%registry_label%% Installation Scripts...")));
  132.       remove(deinstl);
  133.  
  134.   ui_action(instantiate(nls("env_var", "Modifying %%registry_label%% Environment Variables...")));
  135.       /*************************************************************/
  136.       /* Shared Oracle code */
  137.       modify("SQLPATH", "", "$oracle", (registry_filename(current_registry)));
  138.       modify("PLUS32", "", "$oracle", (registry_filename(current_registry)));
  139.       modify("EXECUTE_SQL", "", "$oracle", (registry_filename(current_registry)));
  140.           /* end Shared Oracle code */
  141.       /*************************************************************/
  142.       permit_retry_operations = FALSE;
  143.    } 
  144. }   
  145.